home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / VISUALBA / VSVBX.ZIP / BROWSER.FRM next >
Text File  |  1994-02-21  |  12KB  |  400 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Code Browser using VideoSoft VSAWK"
  4.    ClientHeight    =   5640
  5.    ClientLeft      =   435
  6.    ClientTop       =   1425
  7.    ClientWidth     =   7545
  8.    Height          =   6105
  9.    Left            =   345
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5640
  12.    ScaleWidth      =   7545
  13.    Top             =   1050
  14.    Width           =   7725
  15.    Begin VideoSoftAwk VSAwk3 
  16.       FS              =   " ,    "
  17.       Left            =   2025
  18.       Top             =   4500
  19.    End
  20.    Begin VideoSoftAwk VSAwk2 
  21.       FS              =   " ,    "
  22.       Left            =   1530
  23.       Top             =   4500
  24.    End
  25.    Begin VideoSoftAwk VSAwk1 
  26.       FS              =   " ,    "
  27.       Left            =   990
  28.       Top             =   4500
  29.    End
  30.    Begin CommonDialog CMDialog 
  31.       Left            =   450
  32.       Top             =   4455
  33.    End
  34.    Begin VideoSoftElastic VSElastic1 
  35.       Align           =   5  'Fill Container
  36.       AutoSizeChildren=   4  'Uneven Vertical
  37.       BackColor       =   &H0000FF00&
  38.       BorderWidth     =   -1
  39.       Height          =   4350
  40.       Index           =   5
  41.       Left            =   0
  42.       Splitter        =   1  'Yes (with uneven spacing)
  43.       TabIndex        =   5
  44.       Top             =   795
  45.       Width           =   7545
  46.       Begin VideoSoftElastic VSElastic1 
  47.          AutoSizeChildren=   4  'Uneven Vertical
  48.          BackColor       =   &H00C0C0C0&
  49.          BorderWidth     =   0
  50.          Height          =   1620
  51.          Index           =   1
  52.          Left            =   -15
  53.          Splitter        =   1  'Yes (with uneven spacing)
  54.          TabIndex        =   9
  55.          Top             =   2745
  56.          Width           =   7575
  57.          Begin ListBox List1 
  58.             FontBold        =   0   'False
  59.             FontItalic      =   0   'False
  60.             FontName        =   "Courier New"
  61.             FontSize        =   9
  62.             FontStrikethru  =   0   'False
  63.             FontUnderline   =   0   'False
  64.             Height          =   480
  65.             Left            =   3150
  66.             Sorted          =   -1  'True
  67.             TabIndex        =   10
  68.             Top             =   120
  69.             Visible         =   0   'False
  70.             Width           =   1545
  71.          End
  72.          Begin ListBox List2 
  73.             BackColor       =   &H00FFFFFF&
  74.             FontBold        =   0   'False
  75.             FontItalic      =   0   'False
  76.             FontName        =   "Courier New"
  77.             FontSize        =   9
  78.             FontStrikethru  =   0   'False
  79.             FontUnderline   =   0   'False
  80.             Height          =   1605
  81.             Left            =   0
  82.             Sorted          =   -1  'True
  83.             TabIndex        =   11
  84.             Top             =   0
  85.             Width           =   7575
  86.          End
  87.       End
  88.       Begin VideoSoftElastic VSElastic1 
  89.          AutoSizeChildren=   4  'Uneven Vertical
  90.          BackColor       =   &H00C0C0C0&
  91.          BevelInner      =   7  'Shadow
  92.          BevelInnerWidth =   4
  93.          BevelOuter      =   1  'Raised
  94.          BevelOuterWidth =   1
  95.          BorderWidth     =   18
  96.          ChildSpacing    =   -1
  97.          Height          =   2670
  98.          Index           =   4
  99.          Left            =   -15
  100.          ShadowColor     =   &H00404040&
  101.          TabIndex        =   6
  102.          Top             =   -15
  103.          Width           =   7575
  104.          Begin TextBox Text1 
  105.             BackColor       =   &H00000080&
  106.             FontBold        =   -1  'True
  107.             FontItalic      =   0   'False
  108.             FontName        =   "Courier New"
  109.             FontSize        =   9.75
  110.             FontStrikethru  =   0   'False
  111.             FontUnderline   =   0   'False
  112.             ForeColor       =   &H0000FFFF&
  113.             Height          =   1680
  114.             Left            =   270
  115.             MultiLine       =   -1  'True
  116.             ScrollBars      =   3  'Both
  117.             TabIndex        =   7
  118.             Top             =   720
  119.             Width           =   7035
  120.          End
  121.          Begin VideoSoftElastic VSElastic1 
  122.             BackColor       =   &H00000000&
  123.             BevelInnerWidth =   0
  124.             BevelOuterWidth =   0
  125.             Caption         =   "Visual Basic Code"
  126.             CaptionPos      =   4  'Center Center
  127.             FontBold        =   -1  'True
  128.             FontItalic      =   0   'False
  129.             FontName        =   "Arial"
  130.             FontSize        =   13.5
  131.             FontStrikethru  =   0   'False
  132.             FontUnderline   =   0   'False
  133.             ForeColor       =   &H0000FFFF&
  134.             Height          =   465
  135.             Index           =   3
  136.             Left            =   270
  137.             TabIndex        =   8
  138.             Top             =   270
  139.             Width           =   7035
  140.          End
  141.       End
  142.    End
  143.    Begin VideoSoftElastic VSElastic3 
  144.       Align           =   2  'Align Bottom
  145.       BackColor       =   &H00C0C0C0&
  146.       BevelOuter      =   1  'Raised
  147.       BevelOuterWidth =   1
  148.       CaptionPos      =   4  'Center Center
  149.       FloodColor      =   &H0080FFFF&
  150.       FloodDirection  =   1  'Right
  151.       FontBold        =   -1  'True
  152.       FontItalic      =   0   'False
  153.       FontName        =   "System"
  154.       FontSize        =   9.75
  155.       FontStrikethru  =   0   'False
  156.       FontUnderline   =   0   'False
  157.       Height          =   495
  158.       Left            =   0
  159.       TabIndex        =   4
  160.       Top             =   5145
  161.       Width           =   7545
  162.    End
  163.    Begin VideoSoftElastic VSElastic1 
  164.       Align           =   1  'Align Top
  165.       AutoSizeChildren=   1  'Even Horizontal
  166.       BackColor       =   &H00C0C0C0&
  167.       BevelInner      =   7  'Shadow
  168.       BevelInnerWidth =   4
  169.       BevelOuter      =   6  'Groove
  170.       BorderWidth     =   12
  171.       Height          =   795
  172.       Index           =   0
  173.       Left            =   0
  174.       TabIndex        =   3
  175.       Top             =   0
  176.       Width           =   7545
  177.       Begin CommandButton Command1 
  178.          BackColor       =   &H00C0C0C0&
  179.          Caption         =   "&Open.."
  180.          Default         =   -1  'True
  181.          FontBold        =   -1  'True
  182.          FontItalic      =   0   'False
  183.          FontName        =   "System"
  184.          FontSize        =   9.75
  185.          FontStrikethru  =   0   'False
  186.          FontUnderline   =   0   'False
  187.          Height          =   435
  188.          Index           =   0
  189.          Left            =   180
  190.          TabIndex        =   0
  191.          Top             =   180
  192.          Width           =   2340
  193.       End
  194.       Begin CommandButton Command1 
  195.          BackColor       =   &H00C0C0C0&
  196.          Caption         =   "&Print..."
  197.          FontBold        =   -1  'True
  198.          FontItalic      =   0   'False
  199.          FontName        =   "System"
  200.          FontSize        =   9.75
  201.          FontStrikethru  =   0   'False
  202.          FontUnderline   =   0   'False
  203.          Height          =   435
  204.          Index           =   2
  205.          Left            =   5040
  206.          TabIndex        =   2
  207.          Top             =   180
  208.          Width           =   2325
  209.       End
  210.       Begin CommandButton Command1 
  211.          BackColor       =   &H00C0C0C0&
  212.          Caption         =   "&Copy"
  213.          FontBold        =   -1  'True
  214.          FontItalic      =   0   'False
  215.          FontName        =   "System"
  216.          FontSize        =   9.75
  217.          FontStrikethru  =   0   'False
  218.          FontUnderline   =   0   'False
  219.          Height          =   435
  220.          Index           =   1
  221.          Left            =   2610
  222.          TabIndex        =   1
  223.          Top             =   180
  224.          Width           =   2340
  225.       End
  226.    End
  227. End
  228. Option Explicit
  229.  
  230. Dim subtext$
  231.  
  232. ' Example using nested VideoSoft VSAWK
  233. ' Projects need to be saved as TEXT be parsed by VSAWK.
  234. ' Once the project is loaded, just click on the desired
  235. ' subroutine name on list2 and the code will be pl